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1 .  Introduction 

This  report  describes  a  mathematical  model  and  a  set  of  associated  interactive 
APL   functions  which  are  used  to  calculate  an  officer  manpower  plan  for  the  United 
States  Marine  Corps.  This  plan  is  used  during  the  budget  preparation  cycle 
and  represents  the  future  forecasted  and  planned  force  structure  by  rank. 

A  complete  plan  can  be  calculated  and  printed  in  less  than  five  minutes.  This 
is  a  considerable  reduction  from  the  times  involved  in  hand  calculations.  This 
increase  in  speed  allows  the  planning  officers  to  try  many  alternate  plans  in  a 
short  period  of  time,  and  do  sensitivity  analysis  on  certain  data  elements  such 
as  loss  rates. 

A  brief  summary  of  the  method  of  calculation  is  given  here.  Details  are  pre- 
sented in  section  3.  End  strengths  (by  month)  are  given  for  ranks  General  through 
Captain,  as  well  as  losses  and  gains  to  these  ranks.  From  these  the  monthly  num- 
bers of  promotions  out  of  ranks  Colonel  through  1-st  Lieutenant  are  calculated. 
For  ranks  Warrant  Officer-1  through  2-nd  Lieutenant,  the  numbers  of  monthly  pro- 
motions are  given,  and  thus  the  monthly  end-strengths  for  these  ranks  are  de- 
termined. Finally,  once  promotions  into  and  out  of  1-st  Lieutenant  have  been 
calculated,  the  monthly  end-strengths  are  calculated  for  that  rank. 

Section  2  contains  the  mathematical  formulation  of  the  flow  model  which  is 
based  on  ideas  presented  in  chapter  1  of  reference  [2].  Section  3  gives  a  de- 
tailed description  of  the  order  in  which  the  calculations  are  made.  Section  4 
describes  a  set  of  data  input  functions  written  in  APL   and  intended  for  interactive 
use  in  entering  data.  Section  5  describes  a  set  of  calculation  and  format  func- 
tions written  in  APL   and  intended  for  calculation  and  display  of  the  officer  man- 
power plan.  Readers  unfamiliar  with  APL   should  see  reference  [1].  Finally,  section 
6  shows  a  sample  use  of  the  functions  and  displays  a  plan. 

All  the  functions  in  this  report  are  in  a  workspace  called  OFFICEEPLAN   in  the 


APL+   system  of  Scientific  Time  Sharing  Corporation.  They  were  prepared  at  the 
Naval  Postgraduate  School  through  constant  communication  with  the  staff  in  MPP  at 
Headquarters,  Marine  Corps. 


2.  The  Personnel  Flow  Model 

In  this  section  is  described  the  mathematical  flow  model  and  how  it  is  used 
to  determine  the  officer  manpower  plan.  The  model  is  based  on  simple  conservation 
of  flow  equations  (see  chapter  1  of  reference  [2]  for  details  of  flow  models). 
Let  the  discrete  planning  time  (typically  the  end  of  each  month)  be  numbered 
t  =  0,1,2,  ...,  with  t  =  0  being  the  starting  point.  The  time  interval  between 
times  t  and  t+1  we  call  period  t+1 .  At  each  time  t  we  count  the  number  in 
each  rank  and  call  it  the  stock  level  at  time  t.  People  are  promoted,  join, 
or  leave  between  the  accounting  time  points,  and  these  are  called  flows  in  period 
t.  Thus  we  can  write 


(1)  Stock  level 
at  (t+1) 


Stock  level 
at  t 


+   Gains 
in  (t+1) 


Losses   + 
in  (t+1) 


Promotions  In 
in  (t+1) 

Promotions  Out 
in  (t+1) 


To  express  (1)  mathematically  we  use  the  following  notation.  Let 
s-(t)  =  stock  level  at  time  t  in  rank  j 

J 

9-;(t)  =  gains  in  period  t  into  rank  j 

lAt)   =  losses  in  period  t  from  rank  j 

x-(t)  =  promotions  in  period  t  into  rank  j 

y - ( t)  =  promotions  in  period  t  out  of  rank  j 
The  index  j  ranges  over  1,2,  ...,  n,  where  n  is  the  number  of  ranks  which 
are  numbered  in  decreasing  seniority.  Thus  rank  1  is  the  highest  rank  and  rank 
n  is  the  lowest.  Equation  (1)  now  becomes 


(2)  sj(t+l)  =  sj(t)  +gj(t+l)  -£j(t+l)  +xj(t+l)  -yj(t+l), 


j  =  1,2,  ....  n,  t  >  0. 


Let  s(t),  g(t),  £(t),  x(t)  and  y(t)  represent  the  n-dimensional  vectors 
for  s.(t),  g^t),  £-(t),  x-(t)  and  y-(t)  respectively.  Then  we  can  write 

J  J  J  J  J 

(2)  as 

(3)  s(t+l)  =  s(t)  +  g(t+l)  -  £(t+l)  +  x(t+l)  -  y(t+l),  t  >  0. 

Before  this  general  model  can  be  applied  to  the  USMC  officer  corps,  further  ex- 
planation is  required  of  what  we  precisely  mean  by  ranks,  and  for  each  rank,  the 
definition  of  gains  and  losses. 

In  the  computer  models  described  later  in  this  report  n  has  the  value  11 
and  the  ranks  are: 

Number  (j)  Rank 

1  General  (GEN) 

2  Colonel  (COL) 

3  Lieutenant  Colonel  (LCOL) 

4  Major  (MAJ) 

5  Captain  (CAPT) 

6  First  Lieutenant  (1LT) 

7  Second  Lieutenant  (2LT) 

8  Warrant  Officer-4  (CWO-4) 

9  Warrant  Officer-3  (CW0-3) 

10  Warrant  0fficer-2   (CWO-2) 

11  Warrant  Officer-l   (W0-1) 
For  each  rank,  the  sources  of  gains  are: 

Rank  Sources  of  Gains 

GEN  None 

COL -CAPT  Returns  from  reimbursable  billets 

1LT-2LT  Accessions  into  the  commissioned  officer  corps 

CWO-4  -  CWO-2  None 

W0-1  Accessions  into  the  warrant  officer  corps 


For  each  rank  the  sources  of  losses  are: 

Rank         Sources  of  Losses 

GEN  Natural  attrition  and  retirement 

COL-MAJ       Natural  attrition,  retirement  and  movement  to  reimbursable 
billets 

CAPT         Natural  attrition,  those  released  from  active  duty,  and 
movement  to  reimbursable  billets 

1LT  Natural  attrition  and  those  released  from  active  duty 

2LT  -  WO-1  Natural   attrition 

Promotions  into  a  given  rank  are  of  course  related  to  promotions  out  of  lower 
ranks.  Since  time  periods  are  typically  of  one-month  length,  promotions  of  more 
than  1  rank  in  a  time  period  are  assumed  not  to  occur.  An  exception  occurs  in 
promotions  from  warrant  officer  status  to  limit  duty  officer  (LDO)  in  the  rank 
of  1LT. 

For  the  ranks  GEN  through  CAPT  and  for  CWO-4  through  CWO-2  ,  the  promotions 
into  a  rank  are  equal  to  the  promotions  out  of  the  next  lower  rank.  Thus 

(4)  Xj(t)  =  yj+1(t),   j  =  1,2,  ...,  5,   t  >  1. 

j  =  8,9,10, 

Note  that  y-i(t)  is  zero  (no  promotions  out  of  the  highest  rank). 

Let  z,(t)  be  the  number  in  rank  j  promoted  to  1LT  as  LDO's,  for  j  =  8,9,10; 
t  >  1 .  Then 

(5)  x6(t)  =  y7(t)  +  z8(t)  +  zg(t)  +  z1Q(t),    t  >_!. 

No  promotions  are  possible  into  2LT  or  WO-1,  thus     x7(t)     and     x-,,(t)     are  both 
zero. 

Equation  (3)  can  now  be  simplified  by  eliminating     x(t+l).     Let    A     be  an 
11x11  matrix  of  0's  and  1 's  where 


(i)  the  diagonal  immediately  above  the  main  diagonal  has  all  elements  equal 
to  1  except  for  the  one  on  row  6  which  is  0, 

(ii)  all  other  elements  of  A  are  0. 

Let  B  be  an  11  x  11  matrix  of  0's  and  l's  where 

(i)  elements  in  columns  8,  9,  and  10  on  row  6  are  equal  to  1, 

(ii)  all  other  elements  are  equal  to  0. 
Let  z(t)  be  an  11-vector  with  Zg(t),  zg(t)  and  z,0(t)  in  positions  8, 

9,  and  10  respectively,  and  all  other  elements  equal  to  zero.  Then  from  (4)  and 
(5) 

(6)  x(t)  =  Ay(t)  +  Bz(t),    t  >  1. 
Substituting  this  into  (3)  gives 

(7)  s(t+l)  =  s(t)  +  g(t+l)-£(t+l)  +  (A-I)y(t+1)  +  Bz(t+1),    t  >  0. 

Here  I  represents  an  identity  matrix.  Equation  (7)  can  now  be  used  to  determine 
the  officer  manpower  plan. 


3.     The  Calculation  Procedure 

For  ranks  GEN  through  CAPT  (1-5)   the  end  strengths,   gains  and  losses  are  all 
given.     Denote  with  a     -     the  system  comprising  the  first  5  equations  in  (7). 
Since  the  5x5  matrix  taken  from  the  upper  left  of     B     is  a  zero  matrix,  we  have 

(8)  s(t+l)  =  i(t)  +  g(t+l)   -  £(t+l)  +  (A-I)y(t+1),         t  >  0. 

The  only  unknowns  in  this  equation  are  the  elements  of  y(t)  for  t  >^  1 .  Thus 
we  solve  (8)  to  obtain 

(9)  y(t+l)  =  (I-A)"1  [s(t)  -  s(t+l)  +  g(t+l)  -  I(t+1)],    t  >  0. 

The  solution  of  (9)  gives  the  promotions  out  of  ranks  COL  through  1LT  for  each 
period  in  the  planning  horizon. 

For  ranks  2LT  to  WO-1 ,  the  promotions  out  are  given,  together  with  the  gains 
and  losses.  Denote  with  "  the  system  comprising  the  last  5  equations  in  (7). 
Then  given  the  starting  stocks  we  determine  s(l)  by 

(10)  s(l)  =  s(0)  +  g(D  -  i(l)  +  (A-I)y(l)  +  Bz(l), 

then     s(2),     s(3)     etc.  recursively  through  the  planning  horizon.     The  only  re- 
maining rank  for  which  calculations  have  not  been  made  is  1LT.     For  ranks  above 
this,  end-strengths  are  given  and  promotions  calculated.     For  ranks  below  1LT, 
promotions  are  given  and  end-strengths  calculated.     For  1LT  we  have 

s6(t+l)  =  s6(t)  +g6(t+l)  -  *6(t+l)  +x6(t+l)  -y6(t+l),        t  >0. 

Starting  at  t  =  0,  sg(0)  is  given,  as  are  gg(l)  and  *gO).  Promotions  out, 
yg(l),  are  calculated  through  equation  (9),  and  promotions  in,  xg(l),  are 
calculated  through  (10)  and  (5).  Thus  the  unknown  is  the  end-strength  sg(l). 
This  and  future  period  end  strengths  are  calculated  recursively  over  the  plan- 
ning horizon  after  equations  (9)  and  (10)  have  been  solved  for  all  other  ranks. 


4.  APL   Data  Input  Functions 

The  following  page  lists  eleven  matrices  and  one  vector  which  are  used  to 
store  input  data  required  in  computing  the  officer  manpower  plan.  The  results 
of  the  calculations  are  also  stored  in  these  arrays. 

There  are  eight  APL   input  functions  used  to  interactively  enter  data  at  a 
remote  terminal.  Each  one  is  described  on  the  following  pages  together  with  a 
listing  of  the  function  and  an  illustrative  example  of  its  use.  Alternative 
methods  of  data  input  are  illustrated.  The  use  of  the  APL   operator  p  can  save 
time  when  repetitive  numbers  have  to  be  entered.  See  Gilman  and  Rose  [1]  for 
details  of  APL   operators. 


DATA  ARRAYS 


These  arrays  are  stored  as  global  variables 


APL  Name            Dimensions 

BSM                        1 

1   x  12 

ESM                        1 

1   x  12 

LFM                         1 

1   x  12 

Ltd                         1 

1   x  12 

MGM                        1 

1   x  12 

POM                         1 

1   x  12 

LDOM                      1 

1   x  12 

am              i 

1   x  12 

2H?i                 1 

1   x  12 

FRM                        1 

1   x  12 

i?L^                        1 

1   x  12 

TL7 

11 

Description 

Matrix  of  beginning  strengths,  11  ranks 
(GEN  -  WO-1),  12  periods 

Matrix  of  end  strengths,  11  ranks,  12  periods 

Matrix  of  loss  factors,  11  ranks,  12  periods 

Matrix  of  losses,  11  ranks,  12  periods 

Matrix  of  monthly  gains,  11  ranks,  12  periods 

Matrix  of  promotions  "out",  11  ranks  12 
periods 

Matrix  of  promotions  to  LDO  from  warrant 
officer  ranks,  11  ranks,  12  periods 

Matrix  of  numbers  in  reimbursable  billets, 
11  ranks,  12  periods 

Matrix  of  transfers  to  reimbursable  billets, 
11  ranks,  12  periods 

Matrix  of  transfers  from  reimbursable  billets, 
11  ranks,  12  periods 

Matrix  of  numbers  released  from  active  duty, 
11  ranks,  12  periods 

Vector  of  yearly  losses  from  each  rank,  11 
ranks 


Type  )SAVE  after  data  entry  completion  to  ensure  that  new  input  data 
is  not  lost. 


BSINPUT        (begin  strength  input) 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  HM%   the  rank  vector 
RANKV,   and  the  data  matrix  BSM. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  numbers  in  each 
of  11  ranks  (GEN  -  WO-1 )  at  the  beginning  of  a  planning  period  and 
store  them  as  the  first  column  of  an  11  x  12  BSM. 


Example: 


BSINPUT 
BEGIN    STRENGTH? 

GEN        COL      LCOL        MAJ      C APT         XLT         2LT        V-4    W-3         W-2         W-l 
U: 

67   573    1471    2909   4848   4086   3381   199     79    411     504 


Function  Listing: 


VBSINPUTLQIV 

V    BSINPUT \X 
[1]       L\;XBEGIN    STRENGTH?'    0    RANKV 
[2]         -»(ll=pX^D)pL2    0   EM.   0    +L\ 
[3]      L2:BSM.l;ll+X 

V 


10 


ESINPUT         (end  strength  input) 

Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  EM,   the  month  matrix 
MONTH,   the  rank  vector  RANKV,   and  the  data  matrix  i:SM. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  planned  end 
strengths  for  ranks  GEN,  COL,  LCOL,  MAJ,  and  CAPT  for  each  of 
the  12  planning  months.  These  are  stored  in  the  first  5  rows  of  the 
11x12  matrix  ESM. 

Example: 

ESINPUT 
END   STRENGTH? 

GEN 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 
67   67   67   67   67   67   67   67   67   6 7   67   67 
COL 
OCT    NOV    DEC    JAN    FEB    MAR    APR   MAY    JUN    JUL    AUG    SEP 
U: 

12p574 

LCOL 
OCT    NOV    DEC   JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
U: 

12pl472 
MAJ 
OCT    NOV    DEC    JAN    FEB    MAR    APR   MAY    JUN    JUL    AUG    SEP 
D: 

(5p2910)  ,2912.6p2913 
CAPT 
OCT    NOV    DEC   JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
Q: 

12p4848 


Function  Listing: 

VESINPUTIQ1V 

V    ESINPUT ;X 
[1]  'END    STRENGTH?1    0   I+Q 

[2]       Ll:RANKZl(S*I)+\Sl    0    .MONTH,'     ' 
[3]         +(12  =  p^a)pL2    0   EM   0    +L1 
[4]       L2iESM[I+l;]+-X    0   -»(  4>i>i  +1 )  pLl 

V 


11 


LFINPUT        (loss  factor  input) 

Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  EM,   the  month  matrix 
MONTH,   the  rank  vector  RANKV  and  the  data  matrix  LFM. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  desired  loss 
factors  for  each  of  11  ranks  (starting  with  GEN  and  ending  with 
W0-l)for  each  of  the  12  planning  months.  The  12  month  factors  must 
add  to  1.0.  These  factors  are  used  to  spread  yearly  losses  from 
each  rank  by  month.  They  are  stored  in  the  11x12  matrix  LFM. 

Example: 

LFINPUT 
LOSS    FACTORS? 

GEN 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 
.04  .03  .02  .01  .06  .06  .06  .04  .05  .07  7 

INCORRECT    INPUT 

GEN 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 
.04  .03  .02  .01  .06  .06  .05  .05  .07  .31  .1   .2 

COL 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN   JUL    AUG    SEP 

D: 

i 

i 
i 
i 

V-l 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN   JUL    AUG    SEP 
U: 
.09     .15     .09     .05     .07     .04     .02     .01     .02     .07     .22     .16 

Function  Listing: 

ILFINPUTWl 

V  LFINPUT ;J  \X 
Cl]    'LOSS    FACTORS?1    O   J«-l 
[2]   Z,l:/?,4/VK£[(6xl-i)  +  X6]  <>  .MONTH,1     « 
[3]    +  (l2  =  QX-[])pL2    O  EM    O  +L\ 
[4]  L2'.LFMlI\-\+X    O  +(ll>i>I+l)pLl 

V 


12 


MGINPUT         (monthly  gains  input) 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  EM,   the  rank  vector 
RANKV,   the  month  matrix  MONTH,   and  the  data  matrix  MGM. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  expected  gains 
in  each  of  12  months  into  the  ranks  WO-1 ,  2LT  and  1LT  respectively. 
These  are  stored  in  rows  11,  7  and  6  of  the  11  x  12  matrix  MGM. 

Example: 

MGINPUT 
MONTHLY    GAINS? 
iV-1 
OCT    NOV    DEC    J  AN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 

0    0    0    0  250    0    0    0    0    0    0    0 
2LT 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 
242  152  158  102    0   19  134  173  363  110  288    0 

1LT 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
U: 

213260020305 


Function  Listing: 


VMGINPUTIU1V 

V    MGINPUT \I \M\V\X 
El]  '    MONTHLY    GAINS?'    O   J*l    O   M+    3    6    p(60+i5).(36+i6).30+i6    O    V-    11    7 

[2]      L2:RANKZl,MlI;ll   O    ,M0NTg*x     • 
[3]         +(12=pX«-D)pL3    O   EM   O    +L2 
[4]      L3:MGMlVtIl;l-X   O   +( 3>J>I+1 ) pL2 

V 
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POINPUT  (promotions-out  input) 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  EM,   the  rank  vector 
RANKV,   the  month  matrix  MONTH,   and  the  two  data  matrices  POM  and  LDOM. 

Files:  None 

Functions :  None 

Purpose:  This  function  allows  the  user  to  enter  the  planned  promotions 
in  each  of  12  months  out  of  ranks  2LT,  and  the  warrant  officers.  These 
are  stored  in  rows  7  through  11  of  the  11  x  12  matrix  POM.     The  function 
then  asks  for  the  numbers  in  each  12  months  who  became  limited  duty 
officers  (LDO)  from  each  of  the  4  warrant  ranks.  These  numbers  are 
stored  in  rows  8  through  11  of  the  11  x  12  matrix  LDOM. 

Example: 

POINPUT 
PROMOTIONS    OUT? 

2LT 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    J  UN    JUL    AUG    SEP 
D: 

0  415   14  194    0    4  115   60  750  331    9   14 
-V-4 
OCT    NOV    DEC    JAN    FEB   MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 

12p0 
W-3 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
Q: 

74000000   39    000 

y-2 

OCT    NOV    DEC    JAN    FEB   MAR    APR    MAY    JUN    JUL    AUG    SEP 
0: 

0000   66    0000000 
V-l 
OCT    NOV    DEC    JAN    FEB    MAR    APR   MAY    JUN    JUL    AUG    SEP 
D: 

(4p0) ,234. 7p0 
TO    LDO? 
;7~4 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 

000000002000 
W->3 

OCT    NOV    DEC   JAN    FEB   MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 

(8p0)  ,25,  (3p0) 
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V-2 

OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 

D: 

(8p0)  ,73,3p0 
W-l 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 

D: 

12pO 


Function  Listing: 


VPOINPUTLU1V 

V    POINPUT;I;M;X 
[1]  'PROMOTIONS    OUT?1    0   1+1 

[2]       Ll:ff/!//^£[(30+Jx6)  +  i6]    0    .MONTHS     ' 
[3]         +{\2=pX-U)pL2    0    EM   0    +L1 

[4]       L2-.P0HLI  +  &',  ]+X    0    +(5>I+I  +  l)pLl    0   1+1    0    '    TO    LDO?  • 
[5]       L3:RANKV[( 3  6+1*6) +i 6]    0    .MONTH,1     ' 
[6]  -»(12  =  p^^D)pL4    0    £A*   0   +L3 

[7]       Li+:LZ?0&[I  +  7;  ]«-X    0    -»•(  4>I+-I+1 )  pL3 
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REIMINPUT         (reimbursable  input) 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables;  It  requires  the  error  message  EM9   the  rank  vector 
RANKV,   the  month  matrix  MONTH,   and  the  data  matrices  TBM  and  FRM, 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  scores  to  and  from 
reimbursable  billets  for  each  of  12  months  for  the  ranks  COL,  LCOL, 
MAJ,  and  CAPT  and  store  them  in  rows  2  through  5  of  the  11  x  12 
matrices  TBM   and  FRM   respectively. 

Example: 

REIMINPUT 
COL    TO    RE I MB 
OCT    MOV    DEC    JAN    FEB    MAR    APR   MAY    JUN   JUL    AUG    SEP 
0: 

1    1  ,10p0 
COL    FROM    REIMS 
OCT    NOV    DEC    JAN    FEB   MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 

l.llpO 

LCOL    TO    REIMB 
OCT    NOV    DEC    JAN    FEB    MAR    APR   MAY    JUN    JUL    AUG    SEP 
D: 


VALUE    ERROR 
D      12pO 

A 

u      12p0 

CAPT    TO    REIMB 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 

20001000000    00 

CAPT    FROM    REIMB 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
□  : 

101000020000 
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Function  Listing: 


7 REIMINPUT CD ]V 
V    REIMINPUT \M\X\I 
[1]         M«-    4    6    p6  +  30  +  i?,4/V££   0   I«-l 
[2]       Llz/fCl;],1    TO    REIMB*    0    ,MONTH,9l     ' 
[3]         ->(12=pI^D)pL2    0    £W   0    +L1 
[4]       L2:TRMLI+1; ]+X 

[5]       L3:AfCJ;],  '    FffOA/    REIMB*    0    .MONTH.1     ' 
[6]         +(12  =  p*<-Q)p£4    0   EM   0    +L3 
[7]       M-.FR&lI+lil+X 
[8]         ->>U>i>I+l)pZ,l 
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RLDINPUT  (released  from  active  duty  input) 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  EM,   the  rank  vector 
RANKV,   the  month  matrix  MONTH,   and  the  data  matrix  RLM. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  numbers  in  each 
of  12  months  who  will  be  released  from  active  duty  in  the  ranks  CAPT 
and  1LT.   The  data  is  stored  in  rows  5  and  6  of  the  11  x  12  matrix 
RLM. 

Example: 

RLDINPUT 
RE  LAD? 
CAPT 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
Q: 

4   16   14   6     2    9    4    7    9    8    14  12 
XLT 
OCT    NOV    DEC    JAN    FEB    MAR    APR    MAY    JUN    JUL    AUG    SEP 
D: 
55   55   90   41   35   62   23   48   90   48   62   76 


Function  Listing: 


VRLDINPUTWl 

V  RLDINPUT \I\M\V\X 
[1]    'RE  LAD?'    0  1+1    0  M+    2  6  p  (  2  4+  x  6  )  .  (  3  0  +  \  6  )  0  V*    5  6 
[2]  LI: RANKV I ,M[I;]]  0  .MONTH,'     ' 
[3]    +(12=pX-[])pZ,2  0    EM   0    +LI 
[4]  L2  ;  RLM.lV  III  i  ]+X   0   ■>(  2>I+I+  1 )  pLl 

V 


TLINPUT        (total  loss  input) 


Syntax:  Niladic.  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  EM,   the  rank  vector 
RANKV,   and  the  data  vector  TLV. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  losses  from  each 
of  the  11  ranks  for  the  planning  period,  and  store  them  in  the  11- 
vector  TLV. 


Example: 


TLINPUT 

TOTAL    YEAR    LOSSES? 

GEN         COL      LCOL 

MA  J 

CAPT 

1LT 

2LT 

y-4 

y-3 

V-2 

w-i 

11     95    155 

150 

593 

109 

35 

60 

25 

8 

i+ 

Function  Listing: 


V  TLINPUT 
[1]   Li:1  TOTAL    YEAR    LOSSES?1    0   RANKV 
[2]    -*(ll=p2,L£«-D)pO  0  EM   0    +L1 

V 
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5.  APL   Calculation  and  Output  Format  Functions 

The  calculation,  interactive  changing,  and  formatting  of  the  officer  manpower 
plan  require  ten  APL   functions.  These  are  listed  on  the  following  pages.  Only 
one  is  specified  by  the  user,  namely  OFPLAN.     This  function  calls  the  other  nine 
at  appropriate  points  and  they  remain  invisible  to  the  terminal  user. 
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OFPLAN       (officer  manpower  plan) 

Syntax:  Niladic,  interactively  asks  for  various  changes  in  variables 
and  for  the  amount  of  detail  to  be  printed. 

Global  Variables:  The  data  arrays:  BSM,  ESM,  LFM,  MGM,  POM,  LDOM,  TRM, 
FRM,  RLM,   and  TLV. 

Files:  None 

Functions:  Requires  the  utilities  AYN   (answer  yes  or  no)  and  DATE, 
the  formatting  functions  FMTI,  ESREP,  OF1E,  OMPREP  and  ATREIMB, 
and  the  calculation  functions  CHGFM,  CHGIM,  PLANi. 

Purpose:  This  is  the  main  interactive  function  for  obtaining  the 
manpower  plan.  It  is  the  only  one  (other  than  functions  to  input 
data)  that  the  user  specifies  when  calculating  a  plan. 

Function  Listing:  See   next  page. 
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CHGFM 


CHGFM 

Syntax:  Monadic,  R  <■  CHGFM  M 

Global  Variables:  It  requires  the  error  message  EM. 

Files:  None 

Functions:     None 

Purpose:  It  allows  the  user  to  change  any  elements  in  a  fractional 
matrix,  and  checks  that  the  new  entries  are  consistent  with  row  sums 
equal   to  1.0.     It  is  used  only  inside  other  functions. 

Function  Listing: 


[1] 
[2] 
[3] 
CO 
[5] 
[6] 
[7] 


VCHGFMLU1V 
7    R+CHGFM   M\X\Y 

1  ENTER    ZERO    FOR 
•LI 


L2 
L3 

LS 
LS 


RANK    IF    NO    MORE    CHANGES1 
XRANK    NUMBER?1    0  +(0  =X+Q)  pL6  0  -►(  1 1>X)  pL2 
1  CURRENT1    0  ,'F6.2'  UFMT    MlX;l 
'NEW?1    0  -»(l  =  +/Y«-Q)pL4  0  x  DO    NOT    ADD    TO    1 
-►(12  =  pY)pL5  0  XNEED    12  NUMBERS1    0  +13 
MIX; ]«-!  0  +L1 
R+M 


0  EM   0  +L1 


01    0  +L3 
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CEGIM 

Syntax:     Monadic,     R  ■+■  CEGIi-d  M 

Global   Variables:     It  requires  the  error  message,  EM, 

Files:     None 

Functions:     None 

Purpose:     It  allows  the  user  to  change  any  elements  in  an  integer 
matrix.     It  is  used  only  inside  other  functions. 

Function  Listing: 


Cl] 
[2] 
[3] 
[4] 

[5] 
[6] 


VCHGIMIQ1V 

V    R-CUGIM    MiX',1 

'ENTER    ZERO    FOR    RANK    IF    NO    MORE 
Lli'BABK    NUMBER?1    0  ■*■(  0  =X-U)  p£6 
L2:'CURRENT'    0  , *I6f  UFMT    MlXil 

'NEW?'    0  ■+(l2  =  pY«-i\)pm    0  'NEED    12  NUMBERS'    0  +L  3 
LH:MlX; ]+Y   0  +L1 
L&'.R+M 


CHANGES' 
0  +(ll>X)pL2  0  EM   0 


-LI 
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PLAN1 


Syntax:  Niladic 

Global  Variables:  It  requires  all  the  data  arrays,  BSM,  ESM,  LFM,  LM, 
MGM,   POM,   LDOH,   TRM,   FRM,  RIM,    and  TLV. 

Fi 1 es :  None 

Functions:  Requires  the  integer  rounding  function  ROUND 

Purpose:  This  function  performs  all  the  calculations  for  the  manpower 
plan  discussed  in  section  3. 

Function  Listing:  See  next  page  for  both  PLANl   and  ROUND. 
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FMTF 


Syntax:  Monadic,  R  «-  FMTF  M 

Global  Variables:  It  requires  the  month  matrix  MONTE  and  the  rank 
vector  RANKV. 

Fi 1 es :  None 

Functions:  None 

Purpose:  It  formats  the  fractional  matrix  M  with  column  and  row  headers 
It  is  used  only  within  other  functions. 

Function  Listing: 


VFMTFID1V 

V  FMTF    M 
[1]    «  RANK' ,,(12    3  p«  '), MONTH 
[2]    (11  6  pRANKV) ,'F6.2f  UFMT    M 

V 
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FMTI 

Syntax:  Monadic,  R  ■*■  FMTI  M 

Global  Variables:  It  requires  the  month  matrix  MONTH   and  the  rank  vector 

RANKV. 

Files:  None 

Functions:  None 

Purpose:  It  formats  the  matrix  M   into  integers  with  column  and  row 
headers.  It  is  used  only  within  other  functions. 

Function  Listing: 


VFMTIlWW 
V  FMTI    M',N 
[1]    <V-(pM)[l] 

[2]    ■  RAtlK'..U2    3  p'  •),  MONTH 
[3]    {{N9S)qRANKZ)9'BIS'    UFMT    M 

V 
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ESREP 


Syntax:  Niladic 

Global  Variables:  It  requires  the  month  matrix  MONTH,   the  rank  vector 
RANKV,   and  the  data  arrays  BSM  and  ESM. 

Files:  None 

Functions:  None 

Purpose:  It  formats  the  "End  Strength  Report"  as  part  of  the  manpower 
plan. 

Function  Listing: 


VESREPlUIV 
V  ESREP;MYA;X 
[1]    MYA+(+/BSM+ESM)i2H 

[2]    '  BEGIN1,1    GRADE' ,(,(12  3  p'  ') f MONTH) ,  •    MY  A' 
[3]    ('16'  DFMT  11  1  tSS&),(ll  6  pi?4M7),,I6»  GF^(  £SM)  ,  MY  4 
[4]    '        TOTAL1  ,  ,  ?J6'  QFM:r  +  /£S^ 
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0F1E 


Syntax:  Niladic 

Global  Variables:  It  requires  the  month  matrix  MONTH  and  the  data 
arrays  BSM,  ESM,  ELM,   and  LM. 

Fi 1 es :  None 

Functions:  None 

Purpose:  It  formats  the  "Officer  IE  Table"  as  part  of  the  manpower 
plan. 


Function  Listing: 


V0F1ELQ1V 

V  0F1E\X\Y\M\V 

[1]  V++tM+§    6  12  p(+tBSM) ,X.Y,((?++tLM)+X++tRLM) A+tMGM) ,+tESM 

[2]  '  !       LOSSES  | ' 

[3]  'MONTH  BEGIN         RELAD         OTHER         TOTAL         GAINS  END1 

[4]  ('  \MONTR9*     '  ),(12  2  p'  » ),'BJ81  QFMT   M 

[5]  'TOTAL       ',,'J8'  UFMTiMlUll  ,(4  +  1  +  7)  .M[12;6]) 

V 
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OMPREP 


Syntax:  Niladic 

Global  Variables:  It  requires  the  month  matrix  MONTH,   rank  vector 
RANKV,   the  formatting  headers  Hi,  RIG,  Hi,  H3,  H}\,  H5,   56,  Hi,  m,   #9, 
Hio,  Hil,   #12,  #13,  and  Hih,   the  line  feed  LF,   and  all  the  data  arrays 

FiJ_es:  None 

Functions:  None 

Purpose:  It  formats  the  "Officer  Manpower  Plan,"  the  main  output 
showing  the  monthly  details  of  a  yearly  plan  for  each  rank. 

Function  Listing:  See  next  page. 
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ATREIMB 

Syntax:     Niladic 

Global  Variables:  It  requires  the  data  arrays  ARM,  TRM  and  FRM. 

Files:  None 

Functions:  None 

Purpose:  It  formats  the  movement  of  officers  at,  to,  and  from  reimbursable 
billets  as  part  of  the  manpower  plan. 

Function  Listing: 


7 AT  RE 1MB  CD ]V 

V  ATREIMB 
[1] 
C2] 

[3]  'BEGIN 
[4]  '  TO 
[5]  •  FROM 
[6]    '  END 


OFFICERS    IN    REIMBURSABLE    BILLETS1 

COL  LCOL  MAJ  CAPT* 

TllO'  UFMT,ARMl  l+i«+;  1] 
'110'  UFMT{+/TRM.)ll+\M 
'110'  UFMT(+/FRM){.1+\H] 
'JIG'  UFMTi  +  /TRM  +  ARM-FRM)  1.1+ \^1 
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6.  An  Example 

The  next  seven  pages  give  an  example  of  an  officer  manpower  plan.  This  ex- 
ample does  not  show  every  feature  of  the  interactive  capability,  but  should  be 
sufficient  to  illustrate  the  use  of  the  model.  A  complete  plan  takes  less  than 
five  minutes  of  terminal  time  and  less  than  1  second  CPU  time  on  Scientific  Time 
Sharing 's  APL+   system.  Thus  many  iterations  are  possible  in  the  planning  cycle. 
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